home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / demo / X11 / gobang / redraw.hs < prev    next >
Encoding:
Text File  |  1994-09-27  |  5.5 KB  |  17 lines  |  [TEXT/YHS2]
  1. module Redraw where
  2.  
  3. import Xlib 
  4. import Utilities
  5.  
  6. may_redraw :: Bool -> XInfo -> GameState -> IO ()
  7. may_redraw ok xinfo state = if ok then redraw xinfo state else return ()
  8.  
  9. redraw :: XInfo -> GameState -> IO ()
  10.  
  11. redraw xinfo state = 
  12.   let (XInfo display window gcontext gcontext2 gcontextp) = xinfo
  13.   in
  14.   xDrawRectangle (XDrawWindow window) gcontext2 (XRect 0 0 900 600) True >>
  15.   drawBoard xinfo >>
  16.   xDrawGlyphs (XDrawWindow window) gcontextp (XPoint 610 65) "Player 1" >>
  17.   xDrawGlyphs (XDrawWindow windo